perl code example

visit shbcf.ru